program testArrayComplex;

class testArrayComplex

BEGIN
   
VAR
   counter : integer;
FUNCTION testArrayComplex;
BEGIN
   counter := 0;

   WHILE counter <= 9 DO
   BEGIN
      print counter;
      counter := counter + 1
   END

END

END
.

